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; MODULE RM3MAKIDX (LANGUAGE £0) 15952) ’ 
pent = ‘'v04-000' 
BEGIN 


SRR RRR EAE ARERR EERE RARER EEE EEA REAR AAE REAR REEERHEREKEEEE 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


* 
* 
® 
® 
® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SO ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. s 
: ® 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMI * 
!® CORPORATION. x 

*® 

* 

*® 

*® 

® 

® 


TMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONS | ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MIMMNNIN 2 2 OO OS SS OOOO OOCOOCO 


NOUS WN @ OO ONAUE WN 0 ODNOAUE WIN (OO ONAUESWN OOONAUES WN (OO ONAUIS WR 


NOAUEWR = 0 ODN WN EWN  O OONOUE WN" O OONAUSWN (“OO ONOAUSWR “OO ONOUFWR 


0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Be Se Se Se Be Se Be Se Ge Se Be Se ee Be Be Se Ge Ge Se Se Se Se Ge Ge Ss Ge SHH SH Os Ss Se Se Ss Se Se Ge Se Se Se Se Se Ss Se Se Se Se Se Se Se Se SESE Se eeese 


13 
RM3MAK IDX 1h=Sep-1986 01:49:41 VAN@11 BLise-32 v6.0-762 
O71 8Be 43267238 SRAEMAKIDN 63564 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 2 '® 
2 2 LeU RRR ERE ERR EERE ERE ERATE AREER REE 
3 ; ie 
i] 
; ; FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
3 3 i ABSTRACT: 
; : This module makes an index given a key of reference 
3 3 
3 : : ENVIRONMENT : 
3 3 VAX/VMS OPERATING SYSTEM 
G 4 ice 
d “$1: 
4 4 AUTHOR: D. H. Gillespie CREATION DATE: 2-AUG-78 8:51 
4 04 i 
4 004 ; 
: Obe MODIFIED BY: 
5 005 i v¥03-008 DAS0001 David Solomon 25-Mar-1984 ; 
: bee Fix broken branches. Make RMSMAKE_HIGH_KY not a global routine. 
5 005 ! — -v03-007 MCNO003 Maria del C. Nasr 31-Mar-1983 
é Bee More Linkages reorganization 
5 005 !  v03-006 MCNOOO2~ _. Maria del C. Nasr 28-Feb-1982 
5 005 ; Reorganize Linkages 


RA PAAE LOK 
v04-00 


99 
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CODE = 


Linkages 
LINKAGE 


RMSRMS 
RMSRMS 


=1387 94:69:31 AX-11 Betas V4.0=742 


- oe RMS.SRCJRMSMAKIDX.832;1 
DAS0001 David Solomon 28-Jan-1983 
Add support for 64=-bi. binary keys to RMSMAKE_HIGH_KY. 
MCNO001 Maria del C. Nasr 29-0¢ t-1982 
Call for RMSMAKE_HIGH_KY for prologue 3 non-compressed 
keys so that the indexed is formatted depending on the 


key data type. 


TMKO002 Todd M. Katz 11-Sep-1982 
Eliminate the Linkage for RMSADD_TO_ARRAY which is not called 
within this module. 


KBT0169 Keith B. Thompson 23-Aug-1982 
Reorganize psects 

KBT0062 Keith B. Thompson 11-Jun-1982 
Get rid of the index descriptor offset calculation 
TMK0001 Todd M. Katz 01-Mar-1982 


Add support for rear end truncation of keys in the index 
of pro og 7 tales with compressed indicies. The change 
fs) 


made is MSMAK_IDX_REC. The high key need only contain 
one FF! 

PSK0003 Paulina S. Knibbe : digg mg 3 

Make RM$MAK_IDX_REC into a global routine so NEW_ROOT 

can call it. 

PSkK0002 Paulina S. Knibbe | 02-Aug-1981 
Remove support for rear-end truncation of keys in index 
PSK0001 Paulina S. Knibbe 29-May-1981 

Add support for making prologue three indexes 

REFORMAT Paulina S. Knibbe 23-Jul-1960 


' REVISION HISTORY: 
wengs Ko 


p° 24-OCT-78 14:02 
CHANGES CAUSED BY SHARING CONVENTIONS 


LIBRARY *RMSLIB:RMS'; 
REQUIRE ‘RMSSRC:RMSIDXDEF'; 
define default psects for code 


3(PSECT_ATIR), 
3(PSECTIATIR): 
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RNSMAK IDK 1 
v04-00 MAKE _HIGH_KY 14Se :01: RMS. SRCIRM3MAKIDX.B3 


ZSBTTL ‘MAKE_HIGH_KY' 
ROUTINE MAKE_RIGH_RY : RLSRABREG_67 NOVALUE = 


'e4 
! 


MAKE_HIGH_KY = 


This routine formats a high key depending on the key type 
at REC_ADDR and returns R C_ADOR beyond Righ key. Aone 


i CALLING SEQUENCE: 
MAKE_H:GH_KY() | 


! INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 


REC_ADDR - record pointer 
IDX_DFN - address of index descriptor 


i 

i 

i 

' 

i 

' 

i 

i 

! 

i 

i 

i 

i 

i 

' 

! OUTPUT PARAMETERS: 
none 
} 
i 
i] 
i 
i 
i 
le 


IMPLICIT OUTPUTS: 

REC_ADDR - updated to point beyond high key 
ROUTINE VALUE: 

none 


SIDE EFFECTS: 
none 


- j 


BEGIN 
EXTERNAL REGISTER 
R~IDXZDFN_STR; 


09 G9 C9 C9 SI NIN NS SIN SN NSN SEPA A AAA AAA MII 
RIN Ssanounun—sooe NOU RUN O O00 SO 0 OO O00 On od 


! If the data type is anything but packed decimal, set high key to 255. 
} Then if type is signed binary , clear sign bit. 


LF; JDX_DFNCIDXSB_DATATYPE] NEQU IDX$C_PACKED 


WO O0Onou 


REC_ADDR = CHSFILL(ZX"FF*, .10X_DFNCIDXS$B_KEYSZ], .REC_ADDR); 
IF ( .IDX_DFNCIDX$B_DATATYPE] EQL IDX$C_SGNWORD ) 

( .1DX_DFNCIDX$B_DATATYPE) EQL IDX$C_SGNLONG ) 

( .1DX_DFNCIDXS$B_DATATYPE] EQL IDX$C_SGNQUAD ) 
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ws 
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RMSMAK IDX Ihese -1984 249:41 AX-11 Bliss-32 V4.0-742 Page 5 RMS 
v04-0 MAKE _HIGH_KY 1or8eei 1386 95:67:38 Lams SReIAMEMAc IDK 63004 125 | vO% 
; 200 63 THEN 3 
3 4 $e (.REC_LADDR = 1)<0, 8> = &X'7F'; : 
; 8g 0266 END 3 
3; 204 0 67 ELSE F 
; $8 0 8 ! when the key ij ked decimal, fill nibbl ith '9 ‘ 
3 c en e ke S$ pacKke ecimal, ni es wit ‘ “" except for Py 
: 207 0 % ' size which te Tae , 3 
; 08 0271 ' 3 
; 209 0 2 BEGIN : 
3 210 027 REC ADDR = CHSFILL(%X'99' . IDX_DFNCIDX$B_KEYSZ] = 1, .REC_ADDR); ; 
: ii 0274 ; (,REC_ADDR)<0, 8> = %x'9C!; : 
; ig 0275 REC_ABDDR = .REC_ADDR + 1; ; 
ee 0276 2 END; ; 
; 216 0277 2 3 
; 215 0278 1 END; : 
.TITLE RM3MAKIDX : 
IDENT \V04-000\ ; 
-EXTRN RMSAL_FRMT_BKT, RMSKEY_DESC | : 
-EXTRN RMSMARSUM, RMSRELEASE : 
-EXTRN RMSVBN_SIZE | ; 
«PSECT RMSRMS3,NOWRT, GBL, PIC,2 ; 
3C BB 00000 MAKE_HIGH_KY: : 1 
POSHR #*M<R2,R3,R4,R5> : 0207 | : R 
05 1D AZ? 91 00002 CMPB =. 29 IDX_DFN), #5 : 0253 | 
27 13 00006 BEQL ¢$ : 
50 20 A? 9A 00008 MOVZBL 32(IDX_DFN), RO ; 0256 | 
50 FF oF 6E 00 2c 9000¢ MOVCS #0, (SP), #255, RO, (REC_ADDR) : 
56 °$ dO $0018 MOVL R3, REC_ADDR : | 
01 1D A7 91 00016 CMPB =s-« 29 (IDX_BFN), #1 : 0258 
OC 13 OOO1A BEQL =«1$ : | 
03 1D A? 91 0001C CMPB 29(1DX_DFN), #3 ; 0260 | 
06 13 00020 BEQL 1 ; 
06 1D A? 91 00022 CMPB Q(IDX_DFN), #6 : 0262 | 
1B 12 00026 BNEQ : 
FF AG 7F «6 BFS s:«&90.-: 00028 1: MOVB #127, -1(REC_ADDR) ; 0264 | 
14 11 00020 BRB ; 0253 | 
50 20 AZ 9A 000¢t 2$: MOVZBL 32(IDX_DFN), RO > 0273 | 
50 D7 00033 DECL : 
50 99 8F 6E 00 2c 90035 MOVCS #0, (SP), #153, RO, (REC_ADDR) : 
56 o bO 0003C MOVL R3, REC_ADDR 3 
86 9¢ BF 690 0003F MOVB #-100, TREC_ADDR)+ + 0274) 
3C BA 00043 3$: POPR #*M<R2,R3,RZ,R5> : 0278 | 
05 00045 RSB : 


; Routine Size: 70 bytes, Routine Base: RM$RMS3 + 0000 


; 216 0279 1 


RMSMAKIDX 16-Sep-1984 01:49:41 YAX=11_BLiss-32 v4.0-74 P 
vO4-000 RELEASE _KEYDESC 02866-1984 15:61:38 LANs: SRCIRMSMAKIDX O32; a 


SIDE EFFECTS: 
The lock on the eee descriptor is released. 
IRABCIRB$L_LOCK_BDBJ = 0 


BEGIN 


EXTERNAL REGISTER | 
COMMON_RAB_STR; | 


GLOBAL REGISTER 
R_BDB_STR; 


18 1 ZSBTTL "RELEASE_KEYDESC' 

1? ROUTINE RELEASE_REYDESC : RLSRELEASE_KD NOVALUE = 
3 1+ 

! 

28 RELEASE_KEYDESC 

5 i This routine releases the locked key descriptor whose BDB is stored 
2 g 9 in IRABCIRB$L_LOCK_BDB). 

28 0 i CALLING SEQUENCE: 

$3 8 RELEASE _KEYDESC() 
31 i INPUT PARAMETERS: 
$3 NONE 
234 i IMPLICIT INPUTS: 
235 ! - address of internal RAB structure 
$36 IRABCIRB$L_LOCK_BDB) - BDB of key descriptor buffer 
238 i QUTPUT PARAMETERS: 
tH } NONE 

1 i IMPLICIT OUTPUTS: 

é NONE 

4 i ROUTINE VALUE: 

5 ' NONE 

6 ! 

7 ' 

8 ! 

9 ' 

0 ! 

1 le 

4 

5 

6 

7 

8 

9 

0 


fo Teste ate ab ealeal alta al al slush alsa oe ee ee ee oF oF oF oP oP 


BDB = .IRABCIRBS$L_LOCK_BDB); 
IRABCIRB$L_LOCK_8BB) ="0; 
RISRELEASE CO) ; 


Se Se Se Se Se Ge Se Ge Ge Se Be Se Se Se Se Se Se Se Ge Se Ge Ge Se Se Ge Se Ss Oe Se Se Ss Se Ge Se Se Se Se Se oe FH Se Se Se Se oe Ge es 
0890909 0000 
BUF WN $0 OONAUE WN | 9 ODBNAU EWN 0 ODNOAUE WR OO ONAUS WN O 


SoooocococcococoooooooooooCooooCoOooCOCOoO 

WWIII AINA NAINA WINN 

MOMPIPONINININD 2 9 OO | “DOO DTDOCOCOCOCOCOC OOOO OOOOO OMWMOMnoc 

DEDFIF III DIA at at nt a kk kk hd tt 
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BB 00000 RELEASE_KEYDESC: 
PUSHR 


1C | 

#*MCR2,R3,R4> ; 0281 
C9 pO 0000 MOV. = 132(1RAB), BDB : 0323. 
€9 D4 0000 CLRL ©: 132 CIRAB) : 0324, 
53 D4 00008 CLRL RS ; 0325 


984 01:49:41 AX-11 Bliss-32 V4.0-74 
382 Part eet AMS. SREIRMEMAK IDX O32¢ 
JSB RMSRE a 
POPR #*°M<R2,RS, 
RSB 


RM3MAK IDX “1 
yoe-000 RELEASE _KEYDESC aot 


R4> 


VNo —— 


000000006 Ff 16 0000 
C Ba 001 
5 0001 
; Routine Size: 22 bytes, Routine Base: RMSRMS3 + 0046 
; 265 


0327 1 
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RMSMAK IDX 16-Sep-1984 01:49:41 AX-11 Bliss-32 V4.0-742 Page 
vOe-000 RMSMAKE_INDEX 1e-8ep-1984 15:01:38 LAMS. SREIRMEMAK IDX 93044 ~ a 
5 2 $ 1 ZSBTTL ‘RMSMAKE_INDEX' 
; OB 8 ! GLOBAL ROUTINE RASMAKE_INDEX : RLSRABREG_7 = 
: 270 1 1 !4¢ 
: ei ¢ 1! 
3 f O37 ! } RMSMAKE_INDEX = This routine builds an index for the given key of reference 
; 274 8 5 1 ! CALLING SEQUENCE: 
; 75 $ 1! RMSMAKE _INDEX() 
; 276 83 1! 
s a 0338 1 ! INPUT PARAMETERS: 
; 278 te 1! NONE 
; 279 40 1! 
; 280 0341 1 ! IMPLICIT INPUTS: 
3 2B tk) 1! 
3 $e¢ 0345 1! IDX_DFN - address of in core key descriptor which needs an index 
; 28 0344 1! IRAB - address of internal RAB 
; 284 0345 1! 
> 285 Bee$ 1 ! OUTPUT PARAMETERS: 
; 286 0347 1! NONE 
; 287 0348 1! 
> 288 0349 1 ! IMPLICIT OUTPUTS: 
3; 289 0350 1! NONE 
; 290 0351 1! 
3 34 bag 1 ! ROUTINE VALUE: 
3 3 0355 1! NONE 
3; 2 0354 1! 
: 294 0355 1 ! SIDE EFFECTS: 
; 295 0356 1! ; ; 
3; 4% 0357 1! The index is made if necessary with disk and in_core key descriptors 
; oe 0358 1! being updated. All IRAB BDB's are used but zeroed once descriptors are 
; 298 0359 1! released. IRAB C IRBSL_MIDX_TMPX ] 's are used as scratch areas. 
; 444 0360 1! 
; 300 0361 1! 
; 301 B06 1 !-- 
3; we 0363 1 
3 65305 0364 $ BEGIN 
3 306 0365 
; Son 0366 § MACRO 
: 06 0367 LOWER_VBN = IRAB C_ IRBSL_MIDX_TMP1 J%, 
3 4 3308 2 LEVEL = IRAB C IRBSL_MIDR_TMP2 J%; 
3 309 0370 EXTERNAL REGISTER 
3 319 0371 COMMON_RAB_STR, 
: i O37¢ R_IDX_BFN_STR; 
; 318 0374 ! There should be nothing locked when an index is made for the primary key. 
; 314 0375 ! Only a record lock exists when the secondary index is made. Lock the disk 
s 315 B78 ! key descriptor eser ang it's BDB in IRAB C IRBSL_LOCK_BDB J. Check that the 
; 316 037 ! index has not been made. If it has, release lock and and return. 
; 317 0378 ! In_core descriptor has been updated by read and lock. If the index has 
: 18 tT not been made, precede to build it. 
: $0 tet Force new read of key descriptor 
; 22 0384 iRAB C IRBSV_NEW_IDX } = 1; 
; 32 0384 


» 
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: ¢ 5 Lock descriptor so no one else can monkey : 
3 $ ? IRAB C IRBSB_CACHEFLGS J = CSHSM_LOCK; 
3 8 0 89 RETURN_ON_ERROR( RMSKEY_DESC( .IDX_DFN C IDXS$B_KEYREF] ) ); 
; . 8 4! double check that no one else has made index. ; 
; 3 6398 BEGIN ; 
; 33 0394 3 
>; 334 0395 GLOBAL REGISTER : 
; $36 0396 R_BDB_STR; : 
i 337 0598 BDB = .JRAB C IRBSL_LOCK_BDB J; 
; 359 0400 If NOT .IDX.DFN C IDXSV_INITIDX J 3 
; 341 O40g BEGIN | ; 
St BES Ratyttmerco ea. 
: 344 0405 4 ; 
; 345 0406 ; END; : 
: 346 0407 3 
: 4 o's ; Point to the descriptor in the block | : 
3 349 9410 3 IRAB C IRBSL_MIDX_TMP3 ] = .8DB C BDBSL_ADDR ) + .IDX_DFN C IDX$W_OFFSET ; | 2 
5 $23 beig ; Invalidate buffer so no need to back out | 
3 358 Q414 3 — BDB C BDBSV_VAL J = 0 | : 
; 335 O41g 2 END; ! End global definition of COMMON_IO_STR | : 
; 357 0418 2 ! It is necessary to build the index. Start with tne data level and work ; 
; Soe 0419 2 ! up to the root, taking care to have 2 levels of index if LANUN is not é 
: $29 bese 2 } equal JANUM. | : 
; 6) P Que 5 RETURN_ON_ERROR( RMSAL_FRMT_BKT( .IDX_DFN C IDX$B_DANUM ; 
; 36¢ P Ou23 é aes -1DXZDFN C IDX$BZDATBKTSZ ] * 512), ; 
; 304 P0425 @ RELEASE _KEYDESC() | : 
: 366 0457 5 : | 3 
; 367 Be 8 Finish formatting data level bucket. : 
: 369 0430 BEGIN ; 
; 370 0431 : 
3 71 Beas LOCAL : 
: 38 043 BDB : REF BBLOCK, : 
: $7 Oe ee li : REF BBLOCK, : 
; 375 04.36 é 2 
; 376 37 BDB = .IRAB C IRBSL_NXTBDB J; ! BDB of data bucket 3 
3 Srv 438 BUCKET = .BDB C BDBSL_ADDR J; ! address of data bucket 3 
; 338 439 VBN = bat C BOBSL_VBR J; : : 
: ta Reet BUCKET C BKTSL_NXTBKT J] = .VBN; ! forward Link is self : 
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3 4 Bes } Save first data bucket VBN in disk key descriptor ; 
: 8 444 BBLOCK ( .IRAB C_IRBSL_MIDX_TMP3 ],KEYSL_LDVBN J = .VBN; : 
; 384 0445 BUCKET [ BKT$SB_LEVEL J™= 0; : 
3 §2 pees BUCKET C BKTSB_BKTCB Jj = BKTSM_LASTBKT; : 
3 tf goee | data BDB saved for index formatting routines : 
; 389 0450 IRAB f IRB$L_CURBDB J] = .BDB; ° 
; 339 0451 IRAB C IRBSLINXTBDB ) = 0 : 
§ 336 g438 END; ! end of local definition of BDB + BUCKET : 
> 394 0455 ' Now make index levels | : 
3 395 0456 ! ‘ 
; 396 0457 DECR_I FROM 1 TO 0 DO r 
; 397 0458 BEGIN : 
; 398 0459 3 
; 399 0460 3 ! Choose area to use. 3 
; 400 0461 3 ! 3 
; 401 re 4 BEGIN | : 
; 402 0465 4 : 
; 403 0464 4 AL 3 
; 404 0465 4 AREA_NO; : 
> 405 0466 4 : 
; 406 0467 4 IF .1 EQL 0 : 
: 407 0468 4 THEN 3 
; 408 0469 5 BEGIN ; 
: 409 0470 5 : 
: 610 0471 5 IF .IDX_DOFN C IDX$B_LANUM J] EQL 0 : 
; 411 0472 5 THEN we | : 
3 ei$ bez ; EXITLOOP; ! There are not 2 levels of index if exitloop : 
3 414 0475 5 AREA_NO = .IDX_DFN C IDX$B_IANUM J; : 
: 615 0476 5 F 
3; 416 0477 5 IF .IDX_DFN C IDX$B_LANUM ] EQL .AREA_NO<0, 8> 3 
3: 417 0478 5 THEN $ 
: 418 0479 5 EXITLOOP; ‘ 
3 6419 0480 5 | 3 
: 420 0481 5 END : 
3 421 0482 4 ELSE | : 
: 422 0483 5 BEGIN | 3 
3; 4235 0484 5 AREA_NO = .IDX_DFN C IDX$B_LANUM J; | : 
: 424 0485 5 $ 
3; 425 0486 5 IF .AREA_NO EQL 0 3 
> 426 0487 5 THEN : 
; 427 0488 5 AREA_NO = .IDX_DFN C IDX$B_IANUM J; ; 
: 428 0489 5 ; 
; 429 0490 4 END; 3 
3; 430 0491 4 ; ft : 3 
3 6431 0492 4 ! Pickup information needed from lower level bucket before writing it : 
; $36 04935 4 ' out. F 
; 43 494 & : : 
: 434 495 5§ BEGIN 3 
3; 435 496 5 3 
: 4 497 5 GLOBAL REGISTER F 
; 437 0498 5 R_BDB_STR; 3 
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RAB C IRBSL_CURBDB 1; 


I 

I ~~ ° 

BN = °BDB C BDBSL_VBN J; 

wg -BDB C BDOBSL_ADDOR J],BKTSB_LEVEL J] + 1; 


1; 

RETURN_ON_ERROR( RMSRELEASE( RLSS$M_WRT_THRU ), 
RELEASE_KEYDESC() 
END ) 


wo 

wn 

< 
“nu 


END; ! end of global register definition 
Allocate and do basic formatting of one index bucket 


RETURN_ON_ERROR( RMSAL_FRMT_BKT( .AREA_NO, 
- 1DX_BFN C IDX$B_IDXBKTSZ J] * 512), 


BEGIN 
RELEASE_KEYDESC() 
END ) 


END; ! end of local area_no 
BEGIN 


LOCAL 
BUCKET : REF BBLOCK; 


BUCKET = .BBLOCK C .IJRAB C IRBSL_NXTBDB J,BDBSL_ADD 
BUCKET C BKTSL_NXTBKT J = .BBLOCRK C .1 


J Rj; 
RAB C IRBSL_NXTBDB J,B8DB$L_VBN J; 
BUCKET C BKTSB_LEVEL J] = .LEVEL; 
BUCKET C BKTSV_LASTBKT J] = 1; 
Switch IRAB BDB which describes new index bucket 


{RAB C IRBSL_CURBDB ] = .IRAB C IRBSL_NXTBDB J; | 
IRAB C IRBSL-NXTBDB 3 = 0; | 


Format an index entry 

BEGIN 

GLOBAL REGISTER 
R_REC_ADDR; 


REC_ADDR = .BUCKET + BKTSC_OVERHDSZ; 
RNSRAK_IDX_REC( BUCKET) ; 


SOOOSOSOOSOOOSOSSCOOSSSCSOSSOSOSSSSSOOSOSOSOOCOOOCOCOOOCOOOOOOOOOOOOCOCOO 
PUP PUPP PU SPULUDULUSULULUSULUSV SUSI LULU SUSUSUSV SUS USV SUSU SUSUSU SESS SUSUSU SISOS SE 


Be Se Se Be Oe Se Se Se Se Be Se Ge Ge Se Se Se Fe Ge Ge Se Ge Fe Ge Be Ge Ge SH Ge Ge Ge Se Se oe SF Se Se Se Se Ge Se Se Se Se FH Se Se Se Se SH Se Se Se Ge Se Se Se ae 
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ND; ! of bdb_str and rec_addr 
END; ' end local def of bucket 
3 END; ! end DECR 1 
: set root bucket indicator 
3 BEGIN 
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; 495 9336 LOCAL . 
5 $38 bee BUCKET : REF BBLOCK; ; 
; 49 558 ° 
: 498 0559 BUCKET = PRL OCHS, [RABE INOS, euneos. BDBSL_ADDRI; ° 
: 499 0560 BUCKETCBKT$B_BKTCBJ = .BUCKET BKT$B_BKTCB) OR BKT$M_ROOTBKT : 
: op 036, END; ; 
3 206 208 ! save information about the root in the disk key descriptor and write out ; 
; 50 0564 ' root 

; 504 0565 ! 

3s We 0566 BEGIN 

5 209 567 

3; 568 GLOBAL REGISTER 

+ 508 569 R_BDB_STR; 

; 509 0570 

; 510 0571 LOCAL 

3 ST b37¢ DISK_KEY_DESC : REF BBLOCK; 

3 aig 057 

~ oe 0574 BDB = .IRABCIRBSL_CURBDB); 

> 514 0575 IRABCIRB$L_CURBDBI = 0; 

s S19 0576 3 BoBCBDBSV_B ei 

; 516 0577 BOBCLBDB$V_VALJ = 1; 

3 Sir 0378 3 —-DISK_KEY DESC = . IRABCIRBSL_MIDX_ TMP31; 

; 518 0579 DISK_KEY_DESCCKEYSL_ROOTVBN] = .808CBDBSL_VBNI; 

3 239 Bees H DISK_KEY_DESCLKEYS$B_ROOTLEV] = .BBLOCKC.BDBCBDBSL_ADDR], BKTSB_LEVEL]; | 

; $21 e 0982 3 RETURN_ON_ERROR (RMSRELEASE (RLS$M_WRT_THRU), | 

3 a5¢ P 0583 3 BEG! 

; 52 P 0584 3 RELEASE_KEYDESC() 

> 524 0585 3 END); 

3 32d 0586 3 ee, 

3 258 £444 ; } Now update key descriptor and write it out 

: 528 0589 3 DISK_KEY DESCCKEY$B_FLAGS] = .DISK_KEY_DESCCKEYS$B_FLAGS] AND NOT KEYSM_INITIDX; 

: 268 0590 ; BOB = .IRABCIRBSL LOCK_8DB8); 

; 3 0591 IRABCIRB$L_LOCK_BDB) = 0; 

; 531 099¢ 3 RMSMAKSUM(-BDBLBEDBS$L_ADDRJ) ; 

; 236 059 ; BDBCBDBS$V_DRTJ = 1; 

s 237 B20¢ BDBCBDBS$V_VAL) = 1; 

: 232 $53 ; RETURN_ON_ERROR (RMSRELEASE (RLSSM_WRT_THRU)); 

: 537 0598 $ ! Now call read key descriptor inorder to update the in core descriptor 

; 3» 0599 ! and verify changes got to disk. 

; 539 0600 ‘ 

3 379 seit IRABCIRBSV_NEW_IDX] = 1; 

: 245 Renz 2 RETURN_ON_ERROR (RMSKEY_DESC(.1DX_DFNCIDXS$B_KEYREF])) 

: 544 0605 END; ! end global register r_bdb_str 

3; 545 060 RETURN 1; 

3; 546 060 

; 547 0608 1 END; 
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or ROUTINE “RMSRAK Dx -REC(BUCKET): RLSRABREG_67 NOVALUE = 


RMSMAK _IDX_REC 


This routine builds an index record for the high key value of 


any flavor index bucket. 


i CALLING SEQUENCE: 
RMSMAK_IDX_REC (BUCKET) 


i INPUT PARAMETERS: 
BUCK 


ET - address of bucket, points to where first record goes 


i IMPLICIT INPUTS: 


IDX_DFN - address of in core ney descriptor which needs an index 
IFAB - address of internal FAB 
REC_ADDR - record address for high key 
i QUTPUT PARAMETERS: 
NONE 


i IMPLICIT OUTPUTS: 
REC_ADDR updated to point past high key 


i ROUTINE E VALUE : 


' 
! 
! 
' 
! 
' 
i] 
1 
' 
1 
1 
t 
! 
' 
' 
IRAB - address of internal RAB 
! 
! 
1 
] 
' 
' 
t 
' 
1 
' 
SIDE EFFECTS: 
! 
7 


BUCKET : REF BBLOCK; 
MAC 

PREY LEN = 

FRNT_CMPR == 


GLOBAL REGISTER 
COMMON, 


STR, 
R IDX “DEN, STR; 


tit REGISTER 
R_REC_ADDR_STR; 


LOCAL 
SIZE; 


! First get the size for the VBN 


RM MAKIDX. -B32;1 
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1DX_REC 2 93:67: 


SIZE = RMSVBN_SIZE (.IRAB CIRBSL_MIDX_TMP1]); 
Now set up the record “*epending on bucket flavor 


AX=-11 Bliss-32 V4.0=742 
RMS .SRCJRMSMAK IDX .B32; 1 


S 
rx 


CASE .IDX_DFN CIDXS$B_IDXBKTYP] FROM IDX$C_V2_BKT TO IDXS$C_NCMPIDX OF 


SET 
CIDX$C_V2_BKT): 
} Prologue one or two index bucket 


; ' entrl ! VBN ! key ! 


BEGIN 
(.REC_ADDR)<0,8> = .SIZE = 2; 

(;REC-ADDR)<8, .SIZE*8> = .IRAB CIRBSL_MIDX_TMP1]; 
REC_ADDR = .REC_ADDR + .SIZE + 1; 


MAKE_HIGH_KY();~ 
END; 


CIDX$C_CMPIDX]: 
Prologue three compressed index bucket 


i ' Len ! frnt compr cnt ! key ! 


OCAL 

FIRST_VBN; 
First build key portion 
REC_ADDR CKEY_LEN) = 1; 


REC-ADDR CFRNT_CMPR] = 0; 
REC-ADDR = CHSFILL (2X'FF*, 1, .REC_ADDR + 2); 


Now build VBN portion 
BUCKET [CBKT$V_PTR_$Z] = .SIZE - 
FIRST 


VBN = .BUCKET + (.1DX_DFN CIDX$B_IDXBKTSZ) * 512) 
(.FIRST_VBN - .SIZE) <0,.SIZE*3> = .IRAB CIRBSL_MIDX_TMP 


Insert the ‘end of freespace’ pointer 
(FIRST_VBN) <0, 16> = .FIRST_VBN - .SIZE - .BUCKET - 1; 


CIDXSC_NCMPIDX): 
! Prologue three non-compressed index record 


capegse 
v04-00 


AX=-11 Bliss-32 V4.0-742 


0 RMSMAK_IDX_REC RMS. SRCIRM3MAKIDX.B32;1 
664 7 4 ! eeccece 
665 725 ' ! key ! 
666 7 8 ! eececcece 
667 7 ! 
668 0728 BEGIN 
669 0729 LOCAL 
670 0730 FIRST_VBN; 
671 0731 
ore 07 ¢ MAKE _HIGH_KY (); 
67 ate 
674 0734 ' Now build VBN portion 
675 bo 32 i 
676 736 BUCKET pha PTR_S2] = .SIZE - F 
677 0737 FIRST “BUCKET + (.1DX_DEN CIDX$B_IDXBKTSZ] * 512) - 
ore Or ae ; (.FIR RST. VEN - MSTTED <0,.SIZE*3> = .IRAB CIRBSL_MIDX_ eupids 
oat Bey ; Fill in the ‘end of freespace’ pointer 
682 074 (FIRST _VBN)<0,16> = .FIRST_VBN - .SIZE = .BUCKET = 1; 
683 greg 2 END; i 
684 0744 2 
685 0745 2 TES; 
686 0746 § 
687 0747 ! Now fill in the free space pointer 
688 0748 2! 
oe to4 Be BU — CBKTSW_FREESPACE] = (.REC_ADDR = .BUCKET)<0,16>; 


6 
INFO#250 ti: 0669 
; Referenced REGISTER nanel IRAB is probably not initialized 


0D 


OF94 8F BB 00000 RMSMAK_ 1px REC: 
WaMERE “th R7,R8,R9,R10,R11> 
0088 C9 DD 00004 PUSH 136(1 

00006 30 00008 BSBW RMSVN. ate 
SE 04 CO 00008 ADDL2 #4, SP™ 
54 0 DO 0000E MOVL RO. SIZE 
52 FE AG 9E 00011 MOVAB =2(R4), R2 

02 00 28 A7 8F 00015 CASEB 4OC(IDX’DFN), #0, #2 
0026 001E 0006 OO01A 1$: WORD g3-18.° 
4$-1$° 
66 52 90 00020 2$: MOVB = R2,_ (REC_ADDR) 
50 54 03 78 90083 ASHL #3. SIZE, RO 
66 50 08 0088 ¢9 £0 00027 INSV 136(IRABS, #8, RO, (REC ADDR) 

56 01 A446 9 000 : MOVAB 1(SIZE)CREC_ADDRJ. REC_ADD 

FES 30 000 BSBW MAKE_HIGH_KY 

9 11 000 BRB 6$ 
86 gi BO 00038 3s: MOVW #1, (REC_ADDR)+ 
RE 1 af 0 038 MNEGB #1, (RECTADDR)+ 
03 0 BRB 5$ 

FDD6 30 040 4$: BSBW MAKE eich. KY 

51 20 AE DO 00043 5$: MOVL Buc KET 
Al 02 03 52 FO 0004 INSV Re, #3, if 13(R1) 


Pe ee Se Se Se Se Se Ge Se Se Se Se Se Se Se Be Se Be Se Se Be Be 


Size: 
; Run Time: 


614 code + 0 data bytes 
00:16.5 
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RM3MAK IDX 16-Sep-1984 01:49:4 AX-11 Bliss-32 V4.0-74 
v04-000 RMSMAK_IDX_REC 12286871382 9356933 RMS. SRCJRM3MAKIDX.B32; 
7 16 A7 A 00040 MOVZBL 22(IDX_DFN), R7 
57 7 9 3 0031 ASHL 36: Ry R7 
0 FC A741 9E 000 MOVAB =4(R7)CR1J, FIRST_VBN 
58 34 ; 005A SUBL3 SIZE, FIRST_VBN, RB 
57 54 3 05 ASHL #3, SIZE, R7 
68 57 00 0088 £9 FO 0006 INSV_ 136(IRABS, #0, R7, (RB) 
51 1 ¢3 0006 SUBL3. R11, RB, RI 
60 ef 01 =A $90 SUBW #1, R1, (FIRST_VBN) 
0 20 AE 06 0071 6$: MOVL BUCKET RO 
04 Ad 56 50 A3 00075 SUBW3 RO, REC ADDR, 4(RO) 
OF 94 8F BA OOO7A POPR #°M<R2,R4,R7,RB,R9,R10,R11> 
05 0007E RSB 
; Routine Size: 127 bytes, Routine Base: RMS$RMS3 + O1E7 
: 691 0751 1 
; 69 O7 26 1 END 
; 69 0753 1 
3 694 0754 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: RMSRMS3 614 NOVEC,NOWRT, RD , EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
; cceccece Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CRMS.OBJJRMS.L32;1 3109 70 2 154 00:00.4 
3 Information: 1 
; Warnings: 
; Errors: 
4 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RM3MAKIDX/OBJ=OBJ$:RM3MAKIDX MSRC$:RM3MAKIDX/UPDATE=(ENHS: RM3MAK IDX) 


Page 19. 

° (5) | 
; 0737. 
: 0738. 
; 0742, 
: 0749 
; 0750) 


14 
RM3MAK IDX 1b-Sep-1984 01:49:41 VAX=11 Bliss-32 V4.0-742 Page 20 
v04- RMSMAK_IDX_REC | 


Elapsed Time: 243.0 
Lines/CPU Min: 74 
Lexemes/CPU-Min: 18826 
come Used: 170 pages 
ation Complete 


; Compi 
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